﻿Imports System.Transactions
Imports Sistema_InformacionNaviera.BE
Imports Sistema_InformacionNaviera.DALC

Public Class UbigeoBC
    Public Function ListaPaís() As List(Of UbigeoBE)

        Dim objUbigeo As List(Of UbigeoBE) = Nothing
        Dim objUbigeoDALC As UbigeoDALC = Nothing
        objUbigeoDALC = New UbigeoDALC
        objUbigeo = New List(Of UbigeoBE)()
        objUbigeo = objUbigeoDALC.ListaPais()

        Return objUbigeo
    End Function

    Public Function ListaDpto(ByVal objUbigeoBE As UbigeoBE) As List(Of UbigeoBE)

        Dim objUbigeo As List(Of UbigeoBE) = Nothing
        Dim objUbigeoDALC As UbigeoDALC = Nothing
        objUbigeoDALC = New UbigeoDALC
        objUbigeo = New List(Of UbigeoBE)()
        objUbigeo = objUbigeoDALC.ListaDpto(objUbigeoBE)

        Return objUbigeo
    End Function

    Public Function ListaProv(ByVal objUbigeoBE As UbigeoBE) As List(Of UbigeoBE)

        Dim objUbigeo As List(Of UbigeoBE) = Nothing
        Dim objUbigeoDALC As UbigeoDALC = Nothing
        objUbigeoDALC = New UbigeoDALC
        objUbigeo = New List(Of UbigeoBE)()
        objUbigeo = objUbigeoDALC.ListaProvincia(objUbigeoBE)

        Return objUbigeo
    End Function
End Class
